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4 
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DOLPHIN DCP BOOTSTPA? LOADER 

LOADB.1 



LOAD 

* + 4 

END (END* 1 -CLEAR) . END 
CLEAR 
XLVAC 
CL3'IPL' 
* 

X«08O0« 
X'lFFF'.C • 
XMFFE' (255) ,X> 1FFF' 
X« 1EFF' (256) ,X' 1FFF* 
ZR0*3(2) , N0H256 
250*2,09 
ZRO 

X •07FF» (256) ,X" 1FFF' 
ZROA+3 (2) ,N0M256 
ZBOA+2,01 
ZROA 

LOADB,X8l 
DFDR(,XB1) ,XB2 
STATUS, X' A3* 
STATOS-1 , X'01 ' 

♦ ♦11 

DSKERR+1,X«78« 
DSKERR+2,X 1 3C« 
SEKLIC+1 (,XR1) ,SWITC 
SEKSIO*1 (,XR1) , JWITC 
LIOCR+ 1 (,XB1) ,SWITCH 
LI0DR+1 (,XR1) , SWITCH 
SI0*1 (,XR1) , SWITCH 
TI0*1 (,XB1) .SWITCH 
TI01 + 1 (,XR1) , SWITCH 
SWITCH, X'08' 
TSTERR 

SIO*1 (,XR1) ,X'08» 
SEKSIO+1 (,XR1) ,X »08» 
DSKEBil(,XRl) ,NTRDY 
Di'CR(,XRl) ,CTLREG 
0,0 

BDDFC»3 (,XR1) ,0 
DFCB (,r«1l ,CTLBEG 
DFDR(,XR1) ,X'A4« 
X'OO ! ,X'01' 
* (,XR1) ,B0SY 
OSKc;BR(,XR1) ,NTRDY 



LOAD BASE VALUE 
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TEST STSTEM BIT 
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FOR 
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FOR 


CORRECT 


SPINDLE 
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FOR 


CORRECT 


SPINDLE 
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FOR 


COBRECT 


SPINDLE 




SET 


FOR 


CORRECT 
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TEST 


FOR BUN ON 


FIXET> DISK 




JUHF 


; IF 


NO 






SET 


70 LOAD FBOR 


1 FIXED DIS 


K 


SET 


TO LOAH FRCP! 


1 FIXED DIS 


K 


TEST 


' FOB IPL ERROR 




LOAE 


l CONTROL BEG FOB SEEK 





0(,XR2) ,T'E« 
L0ADE(„XR1) 

3P+3 {2,Xm) ,2(,XR2) 

*-* 



SET TO *D ONE SECTOR 

LOAD COHOAND ADDRESS 
LOAD READIN ADDRESS 
READ DATA 
LOOP WHILE BUS? 
BhANCH IF ERROR 

HAS THE END CARD BEEN READ? 
BRANCH IF NO 

PLACE ADDRESS FROH END CARD IN HOVE 
GO TO DCP LOADER 



HOVE+3 (3, XR1) ,3(,XR2) SET DESTINATION + COUNT 

HOVE+4 (1 ,XR1) ,1 (,XR2) PLACE DATA LENGTH IN TEXT HOVE 

MOVE*4 (1, XR1) ,ONESEC(,XRl) INCREASE SOURCE DISPLACE 

*-*(*-*),*-* (,XB2) HOVE DATA TO CORE 

RDDFC»2 (1,XR1) ,ONESEC (, XB 1) ADD ONE TO SECTOR COON? 

LOADC(.XRI) 



LO»DC(,XB1) 



LOAD i'HROR HALT 

LOAD SAHE TEST AGAIN. 
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